In fergustaylor/openprescribingR: Load OpenPrescribing data directly into R

library(openprescribingR)
library(tidyverse)

spending_by_CCG(CCG_code = "99J")

names <- read_csv("~/Dropbox/T201703CHEM+SUBS.CSV")
names <- names[1:2]

sections <- 1:23
sections <- as.character(sections)

data <- lapply(sections, function(x) {
  spending_by_practice(CCG_code = "99J", BNF_section_code = x) %>%
  mutate("bnf section" = x)
})

ccgdata <- rbind_list(data)

fergustaylor/openprescribingR documentation built on May 31, 2019, 1:15 p.m.